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DTX05 L 

Because this test destroys the contents of core, it is not 
DIPAL compatible. 

PURPOSE OF TEST 

This diagnostic tests the standard 20 K storage for marginal conditions 

by generating v\7orst case half select noise patterns. It is divided into 
two parts which are loaded separately as if two different diagnostics. 

5H - Tests all addresses ending in 50 through 99 (over 50 sense segment) 

5L - Tests all addresses ending in 00 through 'l9 (under 50 sense segment) 

The running time of either part is 36 seconds per pass. 

SWITCH CONTROL 

The Console Program Switches have the following control functions 3.n this test: 

Program Switch 1 ON - Bypass all error routines 

OFF - Type out errors 

Program Switch 2 ON - Loop at test address 

OFF - Sequence through entire test 

Program Switch 3 - Not Used 

Program Switch U ON - Repeat Diagnostic 

OFF - Card Input: Load next program at end of pass 

The PARITY Switch set in the PROGRAM position will allovtf the program to run 
v\?ithout manual intervention but in the case where the error forms an illegal 
character it will be necessary to run with the switch in the STOP position in 
order to determine the failing bit. 

The 1/0 and OVERFLOW Switches are set to the PROGRAiM position. 
TEST PROCEDURE 
Card Input: 

1. Clear Core Storage by inserting 31 00003 00002. Release and Start. 

2. Load test deck from 1622 by pushing LOAD button or by inserting 

36 00000 00300 R-S. 
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3. 



Both programs are on the same tape, however they must be loaded 
separately. The first program on the tape is X05H, the second 
is X05L. . 

To reproduce the Paper Tape, insert 3600000 00300, release, and 
press "SIE" button. DO NOT reposition the tape on the Reader 
after the program is read in, as the second program is in position 
to be read. After the program has been loaded, insert 



insert 



LOG 








00000 


38 


0002'! 


00200 


00012 


35 


00«IG2 


00200 


0002i( 


i}9 


oono2 


00000 


00036 


36 


00M02 


00300 


OOO'IS 


36 


10002 


00300 


00060 


i|9 


00M02 


0000+ 


counted 


to 


011951}, 


stop by 


LOG 








00000 


35 


19999 


00200 


00012 


35 


10002 


00200 


0002M 


35 


19999 


00200 


00036 


l!8 







Release/start. 

This is done to prevent writing 5000 zeros on tape. 

\^fhen the first program, DTX05ir, has been punched, clear core and 
insert 36 00000 00300 to read the second program, DTX05L. Release, 
and press "SIE" button. 

After the program has been loaded, insert 



LOG 








00000 


38 


0Q02t| 


00200 


00012 


35 


05052 


00200 


00021} 


'19 


05052 


00000 


00036 


36 


05052 


00300 


ooous 


36 


15052 


00300 


00060 


M9 


05052 


0000+ 



Release/start. 

IVhen MAR reaches 09604, stop by pressing "SCE" button, insert 



LOG 

00000 

00012 

0002U 

00036 



35 19999 
35 15052 
35 19999 
MS 



00200 
00200 
00200 



Release/start. 



When MAR reaches 16779, stop by pressing "SCE" button, reset, and 
start. 

1620 will Halt with 00011 inMAR after deck is loaded. Push START to 
execute program. 
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The, diagnostic was assembled by the SPS Assembly Program and uses a 
standard SPS Load routine. A detailed listing of the loader along 
with a brief introduction to the SPS Assembly Program may be found in 
the DTX02 Diagnostic write-up. 

TEST DESCRIPTION 

The pattern 7788 is written in the area to be tested and then each address 
in -turn is complimented and then restored to its original value. Read out 
of the originally written character is with the half select noise in phase. 
Read out of the complimented character is with the half select noise ©ut of 
phase. After all addresses are tested the pattern is reversed and the pro- 
cedure is repeated so that every core is tested under both conditions. 

In order to provide the best chance of successful test operation, tht; two 
parts of the test are confined to diagonally opposite corners of storage. 
No common X or Y drive line, or sense segments are used in the program area. 
There is no possibility of isolation in the address decode, matrix switch area. 

The machine add and multiply tables are not used in this program as no 
aritlimetic instructions have been used. The program is made up of information 
Transfer and Branch type instructions only. 

Any reference to add tables in the listing or flow chart are to program tables, 
not? the machine add table. 

Tlie pattern is first written throughout the tested area cf storage with a 
Transmit Record instruction in blocks of fifty characters. If an error occurs 
during this phase of the program, the error routine must scan the fifty 
character field with a Transmit Digit instruction in order to find the specific 
address that failed. 

The Compliment and Restore phase uses a Transmit Digit instruction, so the 
error address is always known. Because of the lengthy nature of this test, a 
rather large address modification loop is used in order to reduce the running 
time to a minimum. Ten addresses are complete ly checked each time through the 
loop. The pattern set up in the loop is 77887788*77 (10 digits). It can be 
seen that it will be necessary to compliment this pattern each time through the 
loop in order to keep it progressing properly. In the flow chart, this is done 
in a clock labelled "Swap Test Digit Area". 

ERROR HALTS Explanation 

OOQll Program Loading Complete 

0M637 IH Pass complete and Program Switch M off. 

Waiting for card reader 
09287 IL Pass complete and Program SvN/itch M off. 

Waiting for card reader 

ERROR PRINT OUT 

In the pattern writing phase, an error print out may be one or two lines. An 
error in an even adr only will give a one line print out. An error in an odd 
address will give a two line print out. One for both the even and odd address. 
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Even address error: 

X is error char XXXXX is error ApR (Even Address) 

Odd address error: 

X is error char XXXXX is error APR (Even Address) 

X is error char XXXXX is error APR (Odd Address) 

In the Compliment and Restore phase the characters from both even and odd 
addresses are always printed along with the even address on a single line. 

XX is error char XXXXX is error ADR (Even Address) 

Botii characters will be indicated as out of parity regardless of the failure. 
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(3 Possible 
_ States) 

loutine Count 

Flag ^^=100 



00514 
05164 



00602 
05252 



04602 
09252 



Generate 




Generate 


Test Field 




Test Field 


7788 




8877 


Set Routine Flag 




Set Routine Flag 




ao) 


1 aoo) 



Print Pass 
Complete 

Reset 
Routine Flag 



04806 
09456 



00706 
05356 
BTM 



Error Routine 



iiTtJiiiiii 

MBR CHK 



Write Field 
iH=xxx50-xxx99 
lL=xxx00-xxx49 



10706 
.15756 



01302 

05952 
BTM 




Error Routine 



MBR CHK 
BB 



Compliment and 

Restore Each 
Address 
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0 



00706 
05356 



Initialize Add 

Tables for 
Address Modify 
Set Start Address 



00814 
05464 



Write 50 

Char Field 

With Transmit 
Record 



00826 
05476 



BTM 
L. 

See Next 
Page 



00914 
05564 



Address Modify 

100 Digit 
(TR) Shift Table 
(TD) Store Digit 



01002 
05652 




NO 



Address Modify 

IK Digit 
(TR) Shift Table 
(TD) Store Digit 




NO 



01125 
05776 



Address Modify 

lOK Digit 
(TR) Shift Table 
(TD) Store Digit 



01226 
05876 




NO 
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04806 
09456 



04818 
09468 




04902 
09552 



04926 
0957^ 



10002 
15152 



10014 
15064 



Set Add 
Tables 






Reset Error 
Indicators 


\ 




Set Field 
Mdress 








Read Digit 



10026 
15076 



Address Modify 

Units Digit 
(TR) Shift Table 
(TD) Store Digit 




10126 
Y 15176 



Address Modif'v 

10 Digit 
(TR) Shift Table 
(TD) Store Digil 



10226 
15276 




I I 



NO 



10310 
15364 



Print Error 



10402 
^ 15452 



Restore Error 
Address 
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00 



01312 
05952 




Initialize Add 
Simulation Tables 
For Address Mod. 
Set Start Address 



01426 
06076 



Find Pattern 

In Core 
Set Up Test 
Digit Area 



01514 
06164 



Swap Test Digit 
Area (Set Up By- 
Above Block) 



01614 
06264 



Set Test Address 
All Digit Blocks 
To Follow 



02302 
06952 



Compliment 

Digit 

ADR XXXXO 
ADR XXXXl 



BTM BB 
SEE NEXT PAGE ^--J 





Repeat Above Routine For 
Addresses 0 & 1 (Last Five 
Blocks) Four Times. Once for 
Each of the Remaining Consec- 
utive Pairs of Units Digits « (2,3), 
(4,5), (6,7), and (8,9). Blocks 
Omitted Here to Save Space. 

I 
i 
I 
I 



© 
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10706 
15756 



10718 
15768 



Set Even 
Error Address 



10730 

15780 



Read Even 
Digit 



10802 
15859 



Add One To 
Even Address 



10926 
i5976 



11102 
16152 



Restore* Error 
Address 



11125 
16178 



Restore Error 
Indicators 




11002 
16052 



Print Error 
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03802 
08452 




Address Modify 

10 Digit 
(TR) Shift Table 

(TD) Store Digit 




Address Modify 

100 Digit 
(TR) Shift Table 
(TD) Store Digit 



04002 
08652 




1 



04126 
08776 



Address Modify 

lOK Digit 
(TR) Shift Table 
(TD) Store Digit 




04014 
08664 



Address Modify 

IK Digit 
(TR) Shift Table 
(TD) Store Digit 



04114 
08764 
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DTX05L 

1620 MEMORY TEST 20K MACHINE 



05564 


31 


09162 


09163 


05576 


25 


05468 


09163 


05588 


49 


05652 


OCOOO 


05652 








05652 


43 


05464 


09163 


0566A 


31 


09163 


08981 


05676 


31 


09187 


09188 


05688 


49 


05752 


00000 


05752 








05752 


25 


05467 


09188 


05764 


43 


05464 


09188 


05776 


31 


0918B 


08981 


05788 


49 


05852 


00000 


05852 








05852 


31 


09083 


09084 



THIS FIRST PART KEEPS TRACK OF WHICH PATTERN IS 
TO BE WRITTEN NEXT AND GENERATES SAME IN LOWEST 
TESTED AREA IN STORAGE 00-49 FOR IL 50-99 FOR IH 



05052 










DORG 


5052 




05052 


16 


05355 


-0000 


RCA 


TFM 


RTCF,,, 


RESET ROUTINE COUNT 


05064 


49 


09352 


00000 




B 


HEAD 




05076 


43 


09252 


05354 


RCB 


BO 


EXIT,RTGF-lf , 


EXIT 


05088 


49 


05152 


00000 




8 


RCC 




05152 










DORG 


• 4-53 




05152 


43 


052 ':2 


05355 


RCC 


BD 


RCD,RTCF,, 


BR PASS TWO 8877 


05164 


31 


00000 


08952 




TR 


tTPl,, 


SET UP 


05176 


31 


00026 


08954 




TR 


26,TPU2f , 


7788 TEST 


05188 


17 


05356 


-0001 




BTM 


IA,1, 




05252 










UORG 


• ♦53 




05252 


31 


00000 


09052 


ROD 


TR 


tTP2,, 


SET UP 


05264 


31 


00026 


09054 




TR 


26.TP2*2tt 


8877 TEST 


05276 


17 


05356 


-0010 




BTM 


IA,10, 




05288 


41 


00000 


00000 




NOP 






05351 










DORG 


• >52 





WRITE PATTERN THROUGH STORAGE 

IN BLOCKS OF 50 WITH TRANSMIT RECORD 



05355 




00005 




RTCF 


DC 


5,0, 




05356 


31 


09163 


08981 


lA 


TR 


AAOfKAD, t 


INITIALIZE 


05368 


31 


09188 


08981 




Tl 


BAD^KAD, f 


ADD 


05380 


31 


09084 


08995 




TR 


CADfKCAO, , 


SIMULATION TABLES 


05392 


49 


05452 


00000 




B 


PUA 




05452 










DORG 


• ♦49 




05452 


16 


05470 


-0000 


PUA 


TFM 


WTRt6,,, 


SET START ADR 


05464 


31 


00000 


00000 


WTR 


TR 


9 1 f 


WRITE FROM 00-49 INTO 


05476 


47 


05564 


01900 




BNA 


AMA 




05488 


49 


05552 


00000 




B 


PUB 




05552 










DORG 


•♦53 




05552 


27 


09556 


05470 


PUB 


BT 


ER,WTR+6, # 


ERROR 



* 

AMA 



AMB 



AMC 



AMD 



THIS ROUTINE STEPS THE TRANSMIT :R£C0R0 ADDRESS IN 
INCREMENTS OF 100 



TR 
TD 
B 

DORG 
BD 
TR 
TR 

B 

DORG 

TO 

BD 

TR 

B 

DORG 
TR 



AAD-1 , AAD, , 
WTR+4, AAD, » 
AMB 

♦ + 53 

WTR,AADt» 
AADtKADf , 
BAD-1,BA0,, 

AMC 

♦ + 53 

wrR+3.8A0, , 
WTR, BAD, , 
BADfKAD, , 
AMD 
♦+53 

CAD-1,CA0,, 



STEP 100 
SET 100 



BR NO CARRY 
RESTORE 100 
STEP IK 



SET IK 

BR NO CARRY 

RESTORE IK 



STEP lOK 
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05864 25 05^66 09084 
05876 43 G54^>4 09084 
05888 49 05952 00000 
05952 



TD WTR+2,CAD., 
DD WTRtCAOtt 

B HKL 

DORG ♦♦sa 



SET lOK 

NO BR ON END MEM 



COMPLEMENT AND RESTORE THE PATTERN DIGIT BY DIGIT 
FIRST SET UP STARTING ADDRESSES 



05952 


15 


06957 


00005 


HKL 


TDM 


WRA+5,5,t 


SET STARTING 


05964 


31 


15789 


06891 




TR 


RADt KRADt » 


INITIAL IZE 


05976 


31 


09188 


08981 




TR 


SAD.KAD, , 


ADD 


05988 


49 


06052 


00000 




B 


HKM 




06052 










DORG 


♦ ♦53 




06052 


31 


09163 


08981 


HKM 


TR 


TADtKAD, t 


SIMULATION 


06064 


31 


09084 


08995 




TR 


UAD.KCAOtf 


TABLES 


06076 


25 


06963 


OOCOO 




TD 


X t f t 


INITIALIZE X 


06088 


49 


06152 


00000 




B 


HKN 




06152 










DORG 


• ♦53 




06152 


25 


07263 


00002 


HKN 


TD 


Y.2., 


INITIALIZE Y 


06164 


25 


06263 


06963 


HKP 


TD 


X S f X t » 


SWAP 


06176 


25 


06963 


07263 




TD 


X,Y, , 


TEST 


06188 


49 


06252 


00000 




B 


HKQ 




06252 










DORG 


• ♦53 




06252 


15 


07263 


00000 


HKQ 


TDM 


Y,,, 


DIGITS 


06263 




00000 




XS 


OS 


♦ » 





THE SUCEEDING ARRAY OF TRANSMIT FIELD INSTRUCTIONS 

ARE USED TO UPDATE THE CURRENT ADDRESS IN THE - FOLLOW I NG 

COMPLEMENT AND-RESTORE ROUTINE 



06264 


26 


06969 


06957 


HKQl 


TF 


WRB*5tWRA+5f 


06276 


26 


07069 


06957 




TF 


WRE^5,WRA^5, 


06288 


49 


06352 


00000 




B 


HKS 


06352 










DORG 


• ♦53 


06352 


26 


07257 


06957 


HKS 


TF 


WRG+5 , WRA+5, 


06364 


26 


07081 


06957 




TF 


WRF+5,WRA+5» 


06376 


26 


07269 


06957 




TF 


WRH+5,WRA^5f 


06388 


49 


06452 


00000 




B 


HKU 


06452 










DORG 


•♦53 


06452 


26 


0 7557 


06957 


MKU 


TF 


WRN^5,WRA^5, 


06464 


26 


07369 


06957 




TF 


WRL^5,WRA^5, 


06476 


26 


07381 


06957 




TF 


WRM+5tWRA^5t 


06488 


49 


06552 


00000 




B 


HKV 


06552 










DORG 


• ♦53 


06552 


26 


07569 


06957 


HKV 


TF 


WRP^5, WRA+5, 


06564 


26 


07669 


06957 




TF 


WRS+5, WRA+5, 


06576 


26 


07681 


06957 




TF 


WRT+5, WRA+5, 


06588 


49 


06652 


00000 




B 


HKW 


06652 










DORG 


♦ + 53 


06652 


26 


07857 


06957 


HKW 


TF 


WRU+5 , WRA+5 


06664 


26 


07869 


069S7 




TF 


WRV+5, WRA+5 


06676 


26 


07969 


06957 




TF 


WRY+5, WRA+5, 


06688 


49 


06752 


00000 




B 


HKY 


06752 










DORG 


♦ + 53 


06752 


26 


08157 


06957 


HKY 


TF 


WRAA+5, WRA+5 


06764 


26 


08169 


06957 




TF 


WRBA+5»WRA+5 


06776 


26 


07981 


06957 




TF 


WRZ+5, WRA+5, 


06788 


49 


06852 


00000 




B 


HK2 
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06852 










06852 


26 


08269 


06957 


HKZ 


C686A 


26 


08281 


06957 




06876 


49 


06952 


00000 




06806 

V/ v/ yJt W 




00000 

W W V/ W V 




TST 


068B8 

\J \J yj \J \J 


41 


00000 


00000 




06891 




00O07 




KRAO 


06891 




00000 




KEAO 


06952 








• 
• 
• 


06952 


1 5 


-QOOO 


00000 

W w V w w 


• 

WRA 


06963 




0 n 0 0 0 

\J \J Kf \J \J 




X 


Q696A 




0000 I 


0696 3 


WRB 


06976 


A 7 


W ( vr (J "t 


0 1 900 




06988 


49 




00000 

Ki \J \J \J ^ 




W 0 w .J £, 










07052 


27 


15856 


06958 


WRC 1 


0706A 


25 


06000 

w V* W V/ W 


07263 


WRE 


07076 


25 


0000 1 


07263 


WRF 


07088 


49 


07152 


00000 




07152 










07152 


47 


07176 


01900 


WRFL 


0716A 


27 


158 56 


07070 




07176 


46 


06952 


00200 


WRF2 


07188 


49 


07252 


00000 




07252 










0 72 52 


1 5 


00007 

vj w v> w c 


0 7263 


WRG 


07263 








Y 


\> # t w *t 


<C -J 


0000"^ 
w u u vy J 


077 A1 


WRH 




^ 7 


u 1 J 0 *t 


0 1900 




M f iC o o 




V r J ^ £ 


00000 

W U V V 




\J t ^ J ^ 










\j § J jt t. 


77 




0771ft 
w f c 7 0 


WRH 1 


07364 






0 A 9 A 

W 0 ~ w 


WRL 


07376 




00003 
\j \j \j \/ J 


06963 


WRM 


07388 


49 


D7A 57 


00000 

W W V7 \> W 




W * " ft. 










0 7A 52 


4 7 


0 Ih 


Ol*->00 


WRMl 


07464 


?7 


1 5856 


0 7 3 70 




0 74 76 


46 


07757 


00700 

W W 41 V W 


WRM2 


n74flft 

w I ~ O VJ 


49 




00000 

w V w W W 




07SS? 










ft 7S S7 

W 1 -J J it 




VJ v> U VJ nr 




WRN 


0 7Sb^ 


C -J 


00005 


06963 


WRP 


07576 


A 7 


0 7664 


01900 




07588 


49 


07652 


COOOO 




07652 










07652 


27 


15856 


07558 


WRPl 


07664 


25 


C0004 


07263 


WRS 


07676 


25 


00005 


07263 


WRT 


07688 


40 


07752 


00000 




07752 










07752 


47 


Qlllb 


01900 


WRTl 


07764 


2 7 


15856 


07670 




07776 


46 


07552 


00200 


WRT2 



DTX05L 



DORG 


• ♦53 


TP 


WREA*5tWRA+5t 


TF 


WRFA-»-5.WRA + 5f 


B 


WRA 


OS 


f — I 


NOP 




OSC 


7,012340« »«-8 


OS 


.KRAD 


DORG 


•♦53 



NOW WE ACTUALLY COMPLEMENT AND RESTUP.F THE TESTED DIGIT 

THE BIG LOOP IS USED TO SPEED UP THE PROGRAM WHICH 

WOULD BE IMPOSSIBLY SLOW WITH A ONE ADDRESS AT A TIME LbOl 



TDM 


0. .2 * 


MR CQMP 


0 


DS 


t 






TO 


l> t t t 


WR CQMP 


\ 


BNA 


WRE 














00 RG 


• ♦53 










ERROR 




TO 


V* t • t t 


RFSTORE 


Q 


xn 


1 . V . . 


v\ b J 1 iJI^ b 


1 
L 


Q 


WRF 1 

n rs r JL 






DORG 


•♦53 






BNA 


WRF2 






BT 




ERROR 




□ Ktf C 


WR A . . . 
n 1^ n y f f 


LCQP 

■» Crf W r 




Q 
















TOM 


t ♦ V ♦ t 


uR rriMP 


2 




t * 






T n 


'X V . 
•3 t '» t t 


uR rriMP 


■X 


R M A 
DIM A 








n 

l> 








DORG 


• ♦53 






BT 


ERR» WRG^6t 1 


ERROR 




TD 


2,X,, 


RESTORE 


2 


ID 


3,X, , 


RESTORE 


3 


B 


WRMl 






OCRG 


• ♦53 






BNA 


WRM2 






BT 


FRR, WRL^6t 1 


ERROR 




BC2 


WRG» , , 


LOOP 




B 


WRN 






DORG 


♦ ♦53 






TD 


4,X» , 


WR CQMP 


4 


TD 


5,X, , 


WR COMP 


5 


BNA 


WRS 






8 


WRPi 






DORG 


• ♦53 






BT 


ERR»WRN^6t » 


ERROR 




TD 


4,Y» , 


RESTORE 


4 


TD 


5,Y,, 


RESTORE 


5 


B 


WRTl 






DORG 


• ♦53 






BNA 


WRT2 






BT 


ERR# WRS^6. » , 


ERROR 




BC2 


WRN, , ,■ 


LOOP; : 
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07788 49 0785l2 00000 
0 7852 

07852 25 00006 07263 WRU 
07364 25 CG0a7 07263 WRV 
07876 47 07964 01900 
07888 49 0795.2 OOCOO 
0 7952 

07952 27 15856 07858 WRVl 
07964 25 00006 06963 WRY 
07976 25 00007 06963 WRZ 
07988 49 08052 00000 
08052 

08052 47 08076 01900 WRZl 

08064 27 15856 07970 

08076 46 07852 00200 WR22 

08088 49 08152 00000 

08152 

08152 25 00008 06963 WRAA 
08164 25 000a9 06963 WRBA 
08176 47 08264 01900 
08188 49 08252 00000 
08252 

08252 27 15856 08158 WRBAl 
08264 25 00008 07263 WREA 
08276 25 00009 07263 WRFA 
08288 49 08352 00000 
08352 

08352 47 08376 01900 WRFAl 
08364 21 15856 08270 
,08376 46 08152 00200 WRFA2 
08388 49 08452 00000 
08452 



» 



08452 


31 


15788 


15789 


ASRA 


08464 


25 


06957 


15789 




08476 


43 


06164 


15789 




08488 


49 


08552 


00000 




08552 










08552 


31 


15789 


06891 


ASRB 


08 564 


31 


09187 


0918G 




08576 


25 


06956 


09188 




08588 


49 


08652 


00000 




08652 










08652 


43 


06264 


09188 


ASRC 


08664 


31 


09188 


08931 




08676 


31 


09162 


09 163 




08688 


49 


08752 


00000 




08752 










08752 


25 


06955 


09163 


ASRD 


08764 


43 


06264 


09163 




08776 


31 


09163 


08981 




08788 


49 


08852 


00000 




08852 










08852 


31 


09083 


09084 


ASRE 


08864 


25 


06954 


09084 




08876 


43 


06264 


09084 





8 


WRU 






DORG 


« + 53 






TD 


6,Y,, 


WR COMP 


6 


TD 


7,Y,, 


WR COMP 


7 


BNA 


WRY 






B 


WRVl 






DORG 


»+53 






BT 


ERR,WRU+6f , 


ERROR 




TD 


6 » X » » 


RESTORE 


6 


TD 

B 


7 , X 1 » 

WRZl 


RESTORE 


7 


DORG 


• ■»-53 






BNA 


WR22 






BT 


ERRf WRY+6, , 


ERROR 




ac2 


WRU ft 1 


LOOP 




B 


WRAA 






DORG 


»*53 






TD 


8 » X t ♦ 


WR COMP 


8 


TD 


9,X. , 


WR COMP 


9 


BNA 


WREA 






B 


WRBAl 






DORG 


• + 53 






BT 


ERR,WRAA+6t t 


ERROR 




TD 


8 f Y » , 


RESTORE 


8 


TD 


9,Y,, 


RESTORE 


9 


B 


WRPAl 






DORG 


» + 53 






BNA 


WRFA2 






BT 


ERRf WREA+6t f 


ERROR 




8C2 


WRAA* t * 


LOOP 




5 


ASRA 






DORG 


• ^•5 3 







THIS SECTION STEPS THE ADDRESS OF THE COMPLEMENT AND 
RESTORE LOOP 



TR 


RAD-1,RAD, 


» 


STEP TENS 


TD 


WRAt5,RAD, 


* 


SET TENS 


BD 


HKP,RADt » 




BR NO CARRY 


B 


ASRB 






DORG 


♦ + 53 






TR 


RAD,KRAD, t 




RESTORE 


TR 


SAD-1,SAD, 


t 


STEP 100 


TD 


WRA+4,SADt 




SET 100 


B 


ASRC 






DORG 


• + 5 3 






BD 


HKQl , SAO, , 




BR NO CARRY 


TR 


SADfKAD, , 




RESTORE 100 


TR 


TAD-l , TAD, 


t 


STEP IK 


B 


ASRD 






DORG 


» + 53 






TD 


WRA+3, TAD, 


» 


SET IK 


BD 


HKQl , TAD, , 




BR NO CARRY 


TR 


TAD,KAD, , 




RESTORE IK 


B 


ASRE 






DORG 


» + 53 






TR 


UAD-l ,UAD, 


t 


STEP lOK 


TD 


WRA+2,UAD, 


t 


SET lOK 


BO 


HKQl ,UAD, , 




BR NO CARRY 



DTX05L 
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08888 49 05076 00000 
08952 



B RCa 
DORG »+53 



08952 
08951 
08954 
08958 
08962, 
08966 
08970 
08974 
08978 
08981 
08995 
08997 
09052 
09052 
09052 
09052 
09056 
09060 
09064 
09068 
09072 
09076 
09078 
09163 
09188 
09084 
09163 
09198 
09084 
09252 



09252 
09264 
09276 
09288 
09352 
09352 
09364 
09376 
09388 
09452 
09453 
09481 
09551 



0002-7 

00004 
00004 
00004 
00004 
00004 
00004 
00004 
00013 
00004 
00002 

00027 

00001 
00004 
00004 
00004 
00004 
00004 
00004 
00002 
00013 
00012 
00004 
00000 
00000 
00000 



39 09453 OOlOO 

46 05052 00400 

36 00000 00500 

49 00000 00000 

34 00000 00102 
39 09481 00100 
34 00000 00102 
49 05076 00000 

00014 
00007 



TPl 



09555 00005 

09556 46 15388 00100 
09i§68 31 16587 08981 
09580 31 15789 06891 
09592 49 15052 00000 



KAO 
KCAO 



TP2 



AAD 
BAD 
CAD 
TAD 
SAD 
UAO 

• 

EXIT 



HEAD 



PC NT 
HO 



» ;: 

ERRX 
ER 



CONSrANTS AND ARITHMETIC WORKING AREAS 



DSS 

DORG 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DSC 

DSC 

DC 

DORG 

OSS 

DORG 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DSS 

DSS 

OSS 

DSS 

OSS 

DSS 

DORG 



27» V FIELD Qf 7788 

«-27 

4,-8778 

4v-8778 

4,-8778 

4,-8778 

4,-8778 

4,-8778 

4,877* 

13,012345678901 • ,TPU29 

4,010«tTPU43 

2,-10,KCAD-»'2 

TPl+lOO 



27,, 
«-26 
1,8 

4,-8778 
4,-3778 
4,-8778 
4,-8778 
4,-8778 
4,-8778 
2,8* 

13,TP2+111» 

12,AA04-25, 

4,TP2<-32, 

,AAD 

, BAD 

• CAP 

AAD*89 



FIELD OF 8877 



100 ADD WORK AREA 
IK ADD WORK AREA 
lOK ADO WORK AREA 



WATY PCNT,,, 
SC4 RCA 
RNCD 9i« 
8 

DORG EXIT+lOO 
RCTY 

WATY HDr»8 
RCTY 

B RCB 

DORG HEAD+100 

OAC 14, PASS COMPLETE*, 

DAC 7,DTX05L«, 

DORG PCNT+98 



PASS COUNTER 

PRINT PASS COMPLETE 
READ NEXT PROGRAM 



PRINT PARSE I 



ERROR ROUTINE- ERROR WHILE WRITING PATTERN 



DC 

BCl 

TR 

TK 

B 



5,0, 
BB,,, 
DAD,KAD, * 
EAD.KEAD 
ERA 



BYPASS ERROR 

SET ADD CONSTANTS 
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15052 










DdRG 


15052 




15052 


47 


15064 


51655 


ERA 


BNI 


ERAI,51655,, 


RESET MBR-E CHECK IND 


1506A 


47 


15076 


51755 


ERAl 


BNI 


ERA2, 51755, , 


RESET MBR-0 CHECK IND 


15076 


26 


15163 


09555 


ERA2 


TP 


CTD+11,£RRX, 


, SET ERROR FIELD ADDRESS 


15088 


49 


15152 


00000 




B 


CTD 




15152 










DORG 


•■»-53 




15152 


25 


16688 


-0000 


CTD 


TO 


PRC,, 7, 


READ DIGIT 


15164 


46 


15452 


01900 




BA 


ERD,,, ; 


ERROR 


15176 


31 


16586 


16587 


CT02 


TR 


DAD-l,DAO, f 


STEP UNIT ADR 


15188 


49 


15252 


00000 




B 


ERB 




15252 










DORG 


• + 53 




15252 


25 


15163 


16587 


ERB 


TO 


CTDtlltOAD 




15264 


43 


15152 


16587 




BD 


CTD, DAD 




15276 


31 


16587 


08981 




TR 


OADyKAO, , 


RESTORE UNITS 


15288 


49 


153^2 


00000 




B 


ERC 




15352 










DORG 


•+53 




15352 


31 


15788 


15789 


ERC 


TR 


EAD-UEAD,, 


STEP TENS 


1536A 


25 


15162 


15789 




TD 


CTD+10,EAD 




15376 


43 


15152 


15789 




BD 


CTD,EADt , 


BR NO CARRY 


15388 


42 


00000 


00000 


BB 


3B 


9 11 


RETURN 


15452 










DORG 


• + 53 




15452 


26 


16686 


15163 


ERD 


TF 


PRAt4,CTD+ll 


, ,SET ERROR ADDRESS 


15464 


38 


16688 


00100 




WNTY 


PRC^,, 


PRINT ERROR CHAR 


15476 


26 


15558 


15163 




TF 


EREt6,CTDtU 




15488 


49 


15552 


00000 




B 


ERE 




15552 










DORG 


♦ + 53 




15552 


25 


0-000 


16688 


ERE 


TO 


,PRCf3, 


RESTORE ADR 


15564 


47 


15576 


50755 




BNI 


ERE> ,50755,, 


RESET WRITE CHECK IND 


15576 


47 


15652 


51755 


EREI 


BNI 


ERF, 51755,, 


RESET MBR-U CHECK IND 


15588 


49 


15652 


ocooo 




B 


ERF 




15652 










DORG 


•+53 




15652 


47 


15664 


51655 


ERF 


BNI 


ERFJ, 51655,, 


RESET MBR-E CHECK IND 


15664 


39 


16753 


OOlOO 


ERFl 


WATY 


PRB 




15676 


38 


16682 


00100 




WNTY 


PRAy,, 


PRINT ERROR ADR 


15688 


49 


157^2 


00000 




B 


ERG 




15752 










DORG 


•+53 




15752 


39 


16653 


00100 


ERG 


WATY 


PR 




15764 


34 


OCO0O 


00102 




RCTY 






15776 


49 


15176 


00000 




B 


CTD2 




15789 




00007 




EAD 


OSS 


7,» + 2 




15789 




00000 




RAD 


OSS 


,EA0 




15788 


41 


00000 


00000 




NOP 






15851 








DORG 


• + 52 





• ERROR ROUTINE - ERROR DURING COMPLIMENT Oft RESTORE 

♦ 



15855 




oooes 




ERRY 


DC 


5.0, 




15856 


46 


16564 


00100 


ERR 


BCl 


RET,,, 


BYPASS ERROR 


15868 


26 


15891 


15855 




TF 


ERR1+11,ERRY, 


,SET EVEN ERROR ADDRESS 


15880 


25 


15973 


00000 


ERRl 


TO 


PRJt,, 


READ EVEN DIGIT 


15892 


,49 


159|2 


00000 




B 


ERRJ 




15951 










DORG 


♦ + 48 




15952 


25 


16063 


15855 


ERRJ 


TD 


ERRK+11,ERRY, 


♦SET ADD TABLE ADDRESS 


15964 


49 


16052 


00000 




B 


ERRK 




15973 




00002 




PRJ 


DSS 


2 , *-2 




15975 




00001 






DC 


lt», » 




15976 


41 


OCOOO 


00000 




NOP 






15988 


41 


OCOOO 


00000 




NOP 






15990 




00009 




KHAD 


DSC 


9, 123456789, ♦ 


-9 
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I 60S2 








16052 


25 


15855 


15990 




26 


16087 


15855 


16076 


25 


15974 


00000 


16088 


49 


16152 


00000 


16152 








1615.'^ 


38 


15973 


00100 


16 164 


26 


16258 


15891 


16176 


26 


16270 


16087 


1 6 1 b 8 


49 


16252 


00000 


162S'2 








i.c2S2 


25 


coooo 


15*? 73 


1 626«v 


25 


coooo 


159V4 


^6276 


•v7 


16352 


5u755 




49 


16352 


00000 


16352 










4? 


1 a iO'H 


5 1 755 


i c364^ 


47 


16376 


51655 


16376 


39 


16753 


COlOO 




49 


16452 


OOOGO 


16452 








16452 


26 


16573 


15891 


16464 


33 


16569 


00100 


16476 


39 


16653 


00100 


16488 


49 


16552 


00000 


165S2 








1 6 !> 5 2 


34 


00000 


DO 102 


i 6364 


42 


ocooo 


ooocc 


16569 




00006 




16576 


41 


00000 


00000 


16537 




00012 




1658B 


41 


00000 


00000 


16652 








16653 




00015 




16682 




00005 




i6687 




OOOOl 




16688 




00001 




1668<5 




OOOOl 




16752 








16753 




00014 





05052 





OORG 


»-»-53 




YD 


ERRYjKHADtf READ TABLE 




Xf ■ 


ERKlvll.ERRYffSET ODD ERROR ADDRESS 




TO 


PRJ-i^l»v» READ 000 DIGIT 




a' 


ERRL 




DO KG 


»+53 


EftUL 


Vj|NTY 


PRJ»ff« PRINT ERROR DIGITS 




TP 


ERRM+6 f ERRl+l 1 




TF 


eRMl*6»ERKl*ll 




i$ 


£RRM 




DQRG 


*'*53 




TO 


vPRJ»» RESTORE ERROR DIGITS 


r* -rt iM \i 


TD 


vPRJ-*-! 




&NK 


ERRNt50755,« RESTORE CHECK INO 




B 


ERRNt 




DGf<G 


• ♦53 


£ R R H 


Si^I 


ERNIt51755 






ERN2f5l655 




W^iTY 


PRB 




a 


ERRP 




DORG 


•♦53 


t* f\ c". tr% 


TF 


ERY14-4,ERRI+II, ,SET ERROR ADDRESS FOR 




WNTY 


ERYltii PRINT ERROR ADR 




WATY 


PR 




B 


6RRQ 




DORG 


-+53 


ERRQ 


RCTY 




RET 
w 


BB 


t*r RETURN 




CONSTANTS AND ARITHMETIC WORKING AREAS 


ERYl 


DSC 


6 ♦ • f •-6 




NOP 




DAD 


DSS 


I2f« 




NOP 






DORG 


ERRQ+IOO 


PR 


DAC 


15, IS ERROR ADR « , 


PRA 


DSS 


5 




DC 


It* 


PRC 


DSS 


1 




DC 






OQRG 


PR*99 


PRB 


OAC 


14, IS ERR CHAR « , 




DENO 


5052 



DTXG5L PN 2172342 EC liQ^iHO 



DT X05L 80/80 LIST 



360007200500360020100500^400012002 76260005900274250001100000260009000269 


-0000 


2600095002643100000002002600114002 742 5000000001 1 49000 12C0000 










-0001 


2 50726300002250626306963250696307263490625200000* 


0- 


1- 


6152- 


6200 


-0002 


I 605355-00004909352000C043092 52053544905 15200000* 


0- 


1- 


5052- 


5100 


-0003 


4 3052 5205355310000008952 3100026089541705356-0001* 


0- 


1- 


5152- 


5200 


-C004 


3100000090523100026090541705356-0010410000000000* 


0- 


1- 


5252- 


5300 


-^0005 


-0000* 


l- 


l- 


5351- 


5356 


-0006 


310916 30898131091880898131090840899549054 5200000* 


0- 


1- 


5356- 


5404 


-0007 


1 6054 70~0000'310000000CC047055 640 1 9004905 5 5200000* 


0- 


I- 


5452- 


5500 


-0008 


2 709 55605470310916209163250546809163490565200000* 


0- 


l- 


5552- 


5600 


-0009 


430546409163310916308981310918709188490575200000* 


0~ 


l~ 


5652- 


5700 


-0010 


250546709188430546409188 310918808981490585200000* 


0- 


1- 


5752- 


5800 


-001 1 


310908 3090842 505466090844305464090844 90595200000* 


0- 


1- 


5852- 


5900 


-0012 


15069570000531 1578906891310918808981490605200000* 


0- 


1- 


5952- 


6000 


-0013 


310916 308981310908408995250696 300000490615200000* 


0- 


1- 


6052- 


6100 


-0014 


2 5072630000225062630696325069630 726349062 5200000* 


0- 


1- 


6152- 


6200 


-0015 


150726300000260696906957260T06906957490635200QOO* 


0* 


1- 


6252- 


6300 


-C016 


26072 5706957260708106957260726906957490645200000* 


0- 


1- 


6352- 


6400 


-0017 


260755706957260736906957260738106957490655200000* 


0- 


l- 


6452- 


6500 


-CO 18 


260756906957260766906957260768106957490665200000* 


0- 


1- 


6552- 


6600 


-0019 


260785 70695 72607 869069 572607969069574906 75200000* 


0- 


1- 


6652- 


6700 


-0020 


260815 7069 5 756081690695726 0798106957490685200000* 


0- 


l- 


6752- 


6800 


-0021 


260826906957260828 1069574906952000004 1 OOOOQOOOOO* 


0- 


1- 


6852- 


6900 


-C022 


012340* 


1- 


1- 


6891- 


6898 


-0023 


15-000000000250000106963470706401900490705200000* 


0- 


1- 


6952- 


7000 


-0024 


2 7158560695 8250000007263250000107263490715200000* 


0- 


1- 


7052- 


7100 


-0025 


4 7071760190027158 560 70 7046069 520020049072 5200000* 


0- 


1- 


71 52- 


7200 


-0026 


1500002072632500003072634 707 36401900490735200000* 


0- 


l- 


7252- 


7300 


-0027 


2 715856072 58250000206963250000306963490745200000* 


0- 


1- 


7352- 


7400 


-0028 


4 7074 76019002 7158 5607 3 70460725200200490755200000* 


0- 


1- 


7452- 


7500 


-0029 


2 50000406963250000 506963470766401900490765200000* 


0- 


1- 


7552- 


•7600 


-0030 


2715 85607558250000407263250000507263490775200000* 


0- 


l- 


7652- 


7700 


-0031 


470777601900271585607670460755200200490785200000* 


0- 


1- 


7752- 


7800 


-0032 


2 5000060726325000070726347079640 1900490795200000* 


0- 


1- 


7852- 


7900 


-0033 


271585607858250000606963250000706963490805200000* 


0- 


1- 


•7952- 


■8000 


-0034 


47080760 1900271 5856 C797046078 52002004908 152 00000* 


0- 


1- 


•8052- 


•8100 


-0035 


2 50000806963250000906963470826401900490825200000* 


0~ 


1- 


•8152- 


•8200 


-0036 


2 71585608158250000807263250000907263490835200000* 


0- 


1- 


■8252- 


■8300 


-0037 


4 70837601900271585608270460815200200490845200000* 


0- 


1- 


•8352- 


■84C0 


-0038 


3 1 15788157892506957 157894306 164 15789490855^00000* 


0- 


1- 


•8452- 


•8500 


-0039 


3 11578906891 31 091 87C9 188250695609188490865200000* 


0- 


l- 


•8552- 


•8600 


-0040 


4 30626409188 3109188089813109162091634908 75 200000* 


0- 


1- 


•8652- 


•8700 


-0041 


2 50695509 163430626409 163 3 109 1630898 1490885200000* 


0- 


1" 


-8752- 


•0800 


-0042 


31 0908 3090842506954090844 30626409084490507600000* 


0- 


1- 


-8B52- 


■8900 


-0043 


Q77QQ77QQ77QQ77QQ77QQ7 7QQ77* 


1- 


1- 


•8951- 


•8979 


-C044 


012345678901* 


1- 


1- 


•8981- 


•8994 


-0045 


010* 


1- 


1- 


•8995- 


•8999 


-0046 


J-+ 


1- 


•1- 


■8996- 


■8998 


-0047 


QQ77QQ77Q077QQ77QQ7 7GQ77QQ*= 


1- 


1- 


•9052- 


■9079 


-0048 


39094 5300100460505200400360000000 500490000000000+ 


0" 


1- 


-9252- 


■9300 


-0049 


340000000 102 3909481 00 10034COOOOOO 102490507600000* 


0- 


•1- 


"9352- 


■9400 


-0050 


N 74 162620043565457534563450* 


1- 


•1- 


•9452- 


-9480 


-0051 


M463677075530* 


1- 


1- 


-9480- 


•9494 


-0052 


-0000* 


l- 


1- 


-9551- 


-9556 


-0053 


4 6153 8200100311658708981311578906891491505200000* 


0- 


•l- 


-9556- 


-9604 


-0054 


4 71506451655471507651755261516309555491515200000* 


0- 


■1J5052J5100 


-0055 


2 516688-000046154 5201900311658616587491525200000* 


0- 


•1J5152J5200 


-0056 


251516316587431515216587311658708981491535200000* 


0- 


■IJ5252J5300 


-0057 
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3 115788 1578925 1 til 62 15 7894315 15215789420000000000 + 
261668615163381663800100261555815163491555200000* 
250-000166884715576507554 71565251755491565200000* 
471 56645 165539 1675300 1C038 1668200 10049 15 75200000* 
391665300100340000000102491517600000410000000000* 
-0000* 

461656400100261589115855251597300000491595200000* 
251606315855491605200000* 
* 

410000000000410000000000* 
123456789* 

251585515990261608 715855251597400000491615200000* 
381597300100261625815 09126162 7016087491625200000* 
250000015973250000015974471635250755491635200000* 
4 71636451755471637651655391675300100491645200000* 
26165 7315891381656900100391665300100491655200000* 
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